﻿Module Module1
  Sub Main()
    Dim nl As String = Environment.NewLine
    Dim stringa1 As String = ""
    Dim stringa2 As String = String.Empty
    Dim stringa3 As String = Nothing
    Dim stringa4 As String = "Stringa valida"
    Console.WriteLine("" & _
        "stringa1 = " & _
        String.IsNullOrEmpty(stringa1) & nl & _
        "stringa2 = " & _
        String.IsNullOrEmpty(stringa2) & nl & _
        "stringa3 = " & _
        String.IsNullOrEmpty(stringa3) & nl & _
        "stringa4 = " & _
        String.IsNullOrEmpty(stringa4))
    Console.ReadLine()

  End Sub
End Module
